﻿Public Class col_default
    Inherits System.Web.UI.Page
    Dim objdata As New gaValidation
    Public imgpath, currtURL As String


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Session("admin_ID") <> Nothing And Session("admin_ID") <> "") Then
            objdata.getURL(Request.Url.ToString, imgpath, currtURL)
            Response.Write(BuildWebContext())
        Else
            Response.Redirect("../adm_login.aspx")
        End If
    End Sub
    Private Function BuildWebContext() As String
        Dim strHtml As String
        strHtml = "<table><tr><td>"
        strHtml += "The Column management Menu allows you to publish a new column and its news."
        strHtml += "<ul><li><a href='./adm_findcolumn.aspx'>Find/Edit Column(English)</a></li>"
        strHtml += "<li><a href='./adm_cn_findcolumn.aspx'>Find/Edit Column(Chinese)</a></li>"
        strHtml += "<li><a href='./adm_addColumn.aspx'>Add Column</a></li>"
        strHtml += "<li><a href='./adm_columnnews.aspx'>Find/Edit Column News</a></li>"
        strHtml += "<li><a href='./adm_addcolumnnew.aspx'>Add Column News</a></li></ul></td></tr></table>"
        Return strHtml
    End Function
End Class